home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1995 December / Computer Life December 1995.iso / tapcis / oltoday.scr < prev    next >
Encoding:
INI File  |  1995-08-13  |  1.0 KB  |  49 lines
  1. [*About this script*]
  2. This script captures the current day's stories from Online Today (OLT-90),
  3. placing each story in a separate message.
  4.  
  5. [*Script Setup*]
  6. Title=Get Online Today stories
  7.  
  8. [Begin]
  9. Echo "Script to capture Today's Monitor News"
  10. if ( @capName$ = "" ) Let @capName$ = @pathMsg$ @svcName$ '.MSG'
  11.  
  12. Let @hdrSec$ = "0 Online Today"
  13. Let @hdrNum  = @On
  14.  
  15. WaitList
  16.     1 = "^JMORE !"
  17.     2 = "^J!"
  18.     EndList
  19.  
  20. Let command$ = "GO CIS:OLT-90"
  21. Let lastPage = @False
  22.  
  23. [GetMenu]
  24. Send command$
  25. DoWaitMenu stories[]
  26. if ( @waitMatch# = 2 ) let lastPage = @True
  27. ForEach in stories[] gosub "ReadStory"
  28. Send 'M'
  29. DoWaitList
  30. if ( lastPage ) goto "Finished"
  31. Let command$ = ""
  32. goto "GetMenu"
  33.  
  34. [ReadStory]
  35. ; skip the "montior news" choice, it's a sub-menu and not an article
  36. if ( @strstr(@arrValue$, "monitor news") )   return
  37.  
  38. Let @hdrSub$ = @arrValue$
  39. Send @arrItem$
  40. Echo "Capturing story " @arritem$ "/" @arrvalue$
  41. CapHeader
  42. Wait "^J!"
  43. CapClose
  44. Return
  45.  
  46. [Finished]
  47. Echo "End of script"
  48. End
  49.